home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue26 / survive / MYTABLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-21  |  1.5 KB  |  67 lines
  1. unit MyTable;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DB, MyDS;
  8.  
  9. type
  10.   TMyTable = class(TMyDataSet)
  11.     private
  12.       FReadOnly: Boolean;
  13.     protected
  14.       { Derived from TDataSet }
  15.       function GetCanModify: Boolean; override;
  16.     public
  17.       { Derived from TDataSet }
  18.       property CanModify: Boolean read GetCanModify;
  19.     published
  20.       { Derived from TDataSet }
  21.       property Active;
  22.       property AutoCalcFields;
  23.       property BeforeOpen;
  24.       property AfterOpen;
  25.       property BeforeClose;
  26.       property AfterClose;
  27.       property BeforeInsert;
  28.       property AfterInsert;
  29.       property BeforeEdit;
  30.       property AfterEdit;
  31.       property BeforePost;
  32.       property AfterPost;
  33.       property BeforeCancel;
  34.       property AfterCancel;
  35.       property BeforeDelete;
  36.       property AfterDelete;
  37.       property BeforeScroll;
  38.       property AfterScroll;
  39.       property OnCalcFields;
  40.       property OnDeleteError;
  41.       property OnEditError;
  42.       property OnNewRecord;
  43.       property OnPostError;
  44.  
  45.       { Derived from TMyDataSet }
  46.       property TableName;
  47.  
  48.       { TMyTable Properties }
  49.       property ReadOnly: Boolean read FReadOnly write FReadOnly;
  50.   end;
  51.  
  52. procedure Register;
  53.  
  54. implementation
  55.  
  56. function TMyTable.GetCanModify: Boolean;
  57. begin
  58.   Result := not FReadOnly;
  59. end;
  60.  
  61. procedure Register;
  62. begin
  63.   RegisterComponents('Data Access', [TMyTable]);
  64. end;
  65.  
  66. end.
  67.